home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_oth / tasking / bioskeyb.def next >
Text File  |  1986-07-22  |  387b  |  10 lines
  1. DEFINITION MODULE BIOSKeyboard;
  2.   EXPORT QUALIFIED Status, Read, Check, GetStatus;
  3.   TYPE
  4.     Status = SET OF (RightShift, LeftShift, CtlShift, AltShift, ScrollState,
  5.                      NumState, CapsState, InsState);
  6.   PROCEDURE Read(VAR ch, scan: CHAR);
  7.   PROCEDURE Check(VAR ch, scan: CHAR; VAR avail: BOOLEAN);
  8.   PROCEDURE GetStatus(VAR stat: Status);
  9.   END BIOSKeyboard.
  10.